Power Bytes: Money & Finance/PowerBytes Money and Finance CD-ROM 01/PowerBytes Money and Finance CD-ROM 01.iso/HyperCard Files/Library Hyper Card Templates/Open Stack/Cataloging/background_2774.txt

Text File | 1987-12-04 | 15.2 KB | 653 lines

-- background: 2774 from stack: in
-- bmap block id: 5004
-- flags: 0000
-- background id: 0
-- name:
----- HyperTalk script -----
----------------------- Open StackΓäó Copyright 1987 ---------------------
----------------------- by the Walking Shadow Press --------------------

on openCard
  global bookNumber,fieldList, autoNumbering,tentativeBook
  tabKey
  put field "Today's date" into tdateVar
  if tdateVar is "" then
    put the short date into field "today's Date"
  end if
  if (script of this card is not empty) and (autoNumbering is true) then
    if field "Book Number" is empty then
      put bookNumber into field "Book Number"
      put true into tentativeBook
    end if
  end if
end openCard

on closeCard
  global bookNumber,fieldList,tentativeBook

  if fieldList is not empty then
    set cursor to 4
    if tentativeBook is true then
      put quote&"Book Number""e&"," after fieldList
      add 1 to bookNumber
      put false into tentativeBook
    end if

    put char 1 to (length(fieldList) - 1) of fieldList into fieldList
    put fieldList into tempFieldList
    put 0 into index

    put name of target into targName
    repeat until tempFieldList is empty
      add 1 to index
      put item 1 of tempFieldList into fldTemp
      put "put field "&fldTemp&" of "&targName& " into var"&index into cmdLine
      do cmdLine
      put empty into item 1 of tempFieldList
      put empty into char 1 of tempFieldList -- rid leading comma.
    end repeat

    set lockScreen to true
    set lockMessages to true
    push card

    ---------------------- Acquisition Screen -------------------------
    do line 2 of script of this card

    put empty into targetFieldList
    repeat with indx = 1 to the number of fields
      put (word 3 of name of field indx) & "," after targetFieldList
    end repeat

    repeat with indx = 1 to index
      put item indx of fieldList into tempItem
      if tempItem is in targetFieldList then
        put "put var"&indx&" into field "&tempItem into cmdLine
        do cmdLine
      end if
    end repeat
    ----------------------- Circulation Card --------------------------
    do line 5 of script of this card

    put empty into targetFieldList
    repeat with indx = 1 to the number of fields
      put (word 3 of name of field indx) & "," after targetFieldList
    end repeat

    repeat with indx = 1 to index
      put item indx of fieldList into tempItem
      if tempItem is in targetFieldList then
        put "put var"&indx&" into field "&tempItem into cmdLine
        do cmdLine
      end if
    end repeat
    ---------------------- Label Screen -------------------------
    do line 11 of script of this card

    put empty into targetFieldList
    repeat with indx = 1 to the number of fields
      put (word 3 of name of field indx) & "," after targetFieldList
    end repeat

    repeat with indx = 1 to index
      put item indx of fieldList into tempItem
      if tempItem is in targetFieldList then
        put "put var"&indx&" into field "&tempItem into cmdLine
        do cmdLine
      end if
    end repeat
    send innerReplication to this card
    -----------------------------------------------------------------

    pop card
    set lockMessages to false
    set lockScreen to false
  end if

  if tentativeBook is true then
    put empty into field "Book Number"
    put false into tentativeBook
  end if

  put empty into fieldList
end closeCard

on newField
  global fieldScript
  put name of target into targName
  if word 1 of targName is "bkgnd" then
    ask "Name of field?"
    put it into tmpFldName
    if tmpFldName is empty then
      answer "Unnamed; field will not copy to other stacks"
    else
      set name of targName to tmpFldName
      set script of targName to fieldScript
    end if
  end if
end newField

on doMenu parm
  if name of this card is name of target then
    if parm is "New Card" then
      mkNewCard
    else
      if parm is "Delete Card" then
        delCard
      else
        if parm is "New Field" then
          set editBkgnd to true
          pass doMenu
        else
          if parm is "Open Stack..." then
            set cursor to 4
            quit
            pass doMenu
          else
            if parm is "Cut Card" then
              -- cut card conditional
            else
              if parm is "Paste Card" then
                --
              else
                pass doMenu
              end if
            end if
          end if
        end if
      end if
    end if
  else
    pass doMenu
  end if
end doMenu
--------------------- End Open Stack Routine --------------------------




-- part 1 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=60 top=39 right=70 bottom=429
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Title
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 2 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=64 top=72 right=103 bottom=432
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Author
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 3 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=52 top=104 right=135 bottom=251
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Place
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 4 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=80 top=134 right=166 bottom=304
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Publisher
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 13 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=47 top=166 right=196 bottom=128
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Date
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 6 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=54 top=197 right=229 bottom=369
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Desc
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 7 (field)
-- low flags: 00
-- high flags: 2000
-- rect: left=207 top=167 right=198 bottom=285
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: No. of pages
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 9 (field)
-- low flags: 00
-- high flags: 4007
-- rect: left=71 top=236 right=267 bottom=370
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Subjects
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 8 (field)
-- low flags: 00
-- high flags: 4007
-- rect: left=115 top=270 right=301 bottom=370
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: See references
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 10 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=401 top=314 right=339 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Circulation Card
----- HyperTalk script -----
on mouseUp
  goCirc
end mouseUp


-- part 14 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=387 top=167 right=246 bottom=461
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Call number
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 15 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=393 top=109 right=125 bottom=467
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Book Number
----- HyperTalk script -----
on closeField
  global fieldList,bookNumber,tentativeBook
  if tentativeBook is true then
    put field "Book Number" into bookNumber
  else

    put word 3 of name of me into tempName
    if not(fieldList contains tempName) then
      put (word 3 of name of me) & "," after fieldList
    end if
  end if
end closeField


-- part 16 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=218 top=316 right=339 bottom=244
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  go to prev card
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=245 top=316 right=339 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 27009 / 27009
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  go to next card
end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=100 top=315 right=335 bottom=181
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Label Setup
----- HyperTalk script -----
on mouseUp
  goLab
end mouseUp



-- part 19 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=340 top=129 right=145 bottom=447
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: ISBN
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 20 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=340 top=147 right=164 bottom=447
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: LCCN
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 21 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=181 top=316 right=336 bottom=217
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort
----- HyperTalk script -----
on mouseUp
  ask "Sort on which field?" with "Book Number"
  put it into fld
  if it is not empty then
    answer "Sort fields" with "Descending" or "Ascending"
    if it is "Ascending" then
      sort ascending by field fld
    else
      sort descending by field fld
    end if
  end if
end mouseUp



-- part 22 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=274 top=315 right=340 bottom=400
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Acquisition Screen
----- HyperTalk script -----
on mouseUp
  goAcq
end mouseUp


-- part 28 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=421 top=267 right=281 bottom=467
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Check Out
----- HyperTalk script -----
on closeField
  global fieldList
  put word 3 of name of me into tempName
  if not(fieldList contains tempName) then
    put (word 3 of name of me) & "," after fieldList
  end if
end closeField


-- part 29 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=357 top=23 right=39 bottom=469
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Today's date


-- part 30 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=216 top=302 right=318 bottom=268
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help!
----- HyperTalk script -----
on mouseUp
  go to stack "Catalog Help"
end mouseUp



-- part 31 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=13 top=314 right=333 bottom=99
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Control
----- HyperTalk script -----
on mouseUp
  go to stack "Control"
end mouseUp